00010	C  CONVERTS .DAT TO .DMD      LOAD WITH MSSIO.FAI[XX,LCS]
00100		IMPLICIT INTEGER(A-Q,S-Z)
00200		REAL DIS,PWDS,DISX,A,B,STFF,CENTR,POS ,UD
00400		COMMON/STF/RSTFAC(-3/4),RSTJ2/POSI/STFF(-3/4),X,Y
00500		COMMON/SCM/V(78),ISCR,LCNT,IR,LIST(200)
00550	C  ORDER OF COMMON BLOCKS MUST STAY AS IS!
00600		COMMON/XRN/RN(2050)
00700	 	1 /PTR/PWDS(250),ITEM,L,I,IX
00770		DIMENSION KWDS(250)
00785		EQUIVALENCE (KWDS,PWDS)
00800	83	TYPE 1
00900	1	FORMAT(' TYPE NAME 1  ',$)
01000	2	FORMAT(' TYPE FINAL NAME  ',$)
01100	3	FORMAT(A5)
01200	4	FORMAT(1XA5)
01300		ACCEPT 3,NAME
01350		NAMZ=NAME
01400	10	IF(LOOKD(NAME))GO TO 284
01500		NAME=NAMZ+256
01600		IF(LOOKD(NAME).GE.0)GO TO 83
01700		NAMZ=NAME
01800	C  FOUND NO MORE TO READ
01900	284	CALL IFILE(21,NAME)
02000	2202	READ(21),X,Y,
02100		1 (PWDS(K),K=1,X+1),(RN(K),K=1,Y-1),ISCR,(V(K),K=1,ISCR),
02200		1 LCNT,(LIST(K),K=1,LCNT),RSTFAC,STFF,RPOS
02300		X=X+2
02305	C WRITE EXTRA WORD 
02310		DO 77 K=1,X
02320	77	KWDS(K)=PWDS(K)
02400	CC	Y=Y-1
02600		IR=0
02650	C FLAG FOR NO DPY BUFFER
02700		CALL PUTFIL(NAME)
02800		CALL FASTOU(RSTFAC,128)
02900		CALL FASTOU(PWDS,X)
03000		CALL FASTOU(RN,Y)
03100		IF(LCNT.GT.1)CALL FASTOU(LIST,LCNT)
03300		CALL FINFIL
03350		TYPE 4,NAME
03400		NAME=NAME+2
03500		GO TO 10
03600		END